From: Glenn Morris <rgm@gnu.org>
Date: Sun, 21 Apr 2002 17:57:43 +0000 (+0000)
Subject: (fortran-beginning-do): Make regexp match a DO statement irrespective of
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~57593
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3baf8754b82ed331ed5843da37b7d092a1eba3b5;p=emacs.git

(fortran-beginning-do): Make regexp match a DO statement irrespective of
numeric label.
---

diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el
index 8d4d0131180..40780f1bc85 100644
--- a/lisp/progmodes/fortran.el
+++ b/lisp/progmodes/fortran.el
@@ -1107,7 +1107,7 @@ Return point or nil."
 				(fortran-check-end-prog-re))))
 	    (skip-chars-forward " \t0-9")
 	    (cond ((looking-at
-		    "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[0-9]")
+		    "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+")
 		   (setq count (1- count)))
 		  ((looking-at "end[ \t]*do\\b")
 		   (setq count (1+ count)))))